home *** CD-ROM | disk | FTP | other *** search
- ; DataBase Profession Installer Script
- ; Frank Neumann, Joerg Richter
- ;
- ; [...] so many years ago, before the time when we first heard:
- ; Welcome to the home by the Sea. - Genesis, 'Home by the Sea'
- ;
- ; "Siehst du, Sohn, laß' dir das eine Lehre sein - trinke nie zuviel Tequila, wenn in
- ; der Nähe eine Hochzeitskapelle spielt.." - Al Bundy
- ;
- ; $VER: V2.0 (01.11.94)
-
- (set osver (/ (getversion) 65536))
- (
- (if (<= osver 36)
- (abort " DataBase benötigt mindestens Workbench 2.04 ")
- )
- )
-
- (set @default-dest
- (tackon
- (askdir
- (prompt " In welchem Verzeichnis soll DataBase installiert werden ? "
- " \n(Es wird eine eigene Schublade erzeugt) ")
- (help @askdir-help)
- (default "WORK:")
- )
- "DBProDemo"
- )
- )
-
- (working " Installation der LiesMich-Datei ")
- (copyfiles
- (prompt "")
- (help @copyfiles-help)
- (SOURCE "Amiga-Magazin-PD:Liesmich")
- (dest @default-dest)
- (infos)
- )
-
- (working " Installation des Hauptprogramms ")
-
- (set lzrc
- (run ("Amiga-Magazin-PD:c/LHARC >con: -mx x %s %s/" "Amiga-Magazin-PD:DB.lzh" @default-dest)
- (prompt "Entpacke Archiv 'DB.lzh' nach " @default-dest ".")
- (help "Keine Hilfe verfügbar.")
- )
- )
- (if (<> lzrc 0)
- (message "Fehler beim Dekomprimieren des DB-Archivs.")
- )
-
- (working " Installation der Libraries ")
-
- (copylib
- (prompt "")
- (help "DataBase Professional braucht zum Betrieb die reqtools.library. Sie wird in diesem Schritt kopiert.")
- (source "Amiga-Magazin-PD:libs/reqtools.library")
- (dest "libs:")
- (confirm)
- )
-
- (working " Installation der Schriften ")
- (copyfiles
- (prompt " Möchten Sie zusätzliche Schriften installieren ? "
- " \n(Diese werden für einige beigefügte Masken benötigt). ")
- (help "Diese Zeichensätze werden für einige beigefügte Masken benötigt. Ist nun mal so. "
- "\n\nNa gut, etwas förmlicher: Einige der Masken sind für diese Zeichensätze ausgelegt "
- " und Ihre eigenen zukünftigen Masken können Sie damit gestalten.")
- (source "Amiga-Magazin-PD:Fonts/")
- (dest "FONTS:")
- (confirm)
- (all)
- (fonts)
- )
-
- (message "Es werden jetzt die beiliegenden Masken installiert. "
- "Bei Festplatteninstallation sollten Sie den im nachfolgenden "
- "Filerequester vorgeschlagenen Pfad übernehmen "
- "(fahren Sie dazu lediglich mit 'Proceed' fort), "
- "während Sie bei Disketteninstallation eine leere und "
- "formatierte Diskette mit einem beliebigen Verzeichnis "
- "für die Masken verwenden müssen.")
-
- (set @example-dest
- (askdir
- (prompt " In welchem Verzeichnis sollen die beigelegten fertigen Masken installiert werden ? ")
- (help "Wenn Sie das Programm auf Festplatte installieren, sollten Sie diese Masken dort "
- "installieren, wo auch das DataBase Professional-Hauptprogramm liegt. "
- "Wenn Sie auf Disketten installieren, müssen Sie diese auf eine zweite formatierte "
- "Diskette mit einem beliebigen Verzeichnis für die Masken kopieren." )
- (default @default-dest)
- )
- )
-
-
- (set lzrc
- (run ("Amiga-Magazin-PD:c/LHARC >con: -mx x %s %s/" "Amiga-Magazin-PD:Masken.lzh" @example-dest)
- (prompt "Entpacke Archiv 'Masken.lzh' nach " @example-dest ".")
- (help "Die beigefügten Masken dienen zur Demonstration von DataBase Professional, "
- "sind aber auch für den sofortigen Gebrauch geeignet. "
- "Wir empfehlen, diese auf jeden Fall zu installieren. " )
- )
- )
- (if (<> lzrc 0)
- (message "Fehler beim Dekomprimieren des Masken-Archivs.")
- )
-
- (exit)
-
-